home *** CD-ROM | disk | FTP | other *** search
/ DS-CD ROM 2 1993 August / DS CD-ROM 2.Ausgabe (August 1993).iso / geschaef / ds0093 / topfakt / atrlist2.for < prev    next >
Text File  |  1993-06-30  |  3KB  |  59 lines
  1. ^17
  2. ^10^B#AuftragsBezeichnung ^b^17
  3.                                                                      Seite: #SEITE:8:0
  4. Zeitraum vom #VonDat  bis #BisDat                                    Stand: #DATUM
  5. ────────────────────────────────────────────────────────────────────────────────────
  6. Atr.Nr. Kd.Nr. Name                           Datum    Best.Dat. Lief.Dat.    Betrag
  7. /234567 123456 123456789012345678901234567890 12345678 12345678  12345678 1234567890
  8. ────────────────────────────────────────────────────────────────────────────────────
  9. !LISTE:60
  10. !WENN #AtrDat >= #VonDat .AND. #AtrDat <= #BisDat .AND. #AuftragsTypOK
  11. /
  12. #Atr_Nr #KdNr  #Name                          #AtrDat  #BestDat  #LiefDat #Betrag:10
  13. /
  14.   !#Anz:= #Anz+ 1                           // Zähle die Anzahl der gedruckten Atr
  15.   !#SummeBetrag:= #SummeBetrag+ #Betrag     // Summe der Beträge
  16. !ENDE WENN
  17. /
  18. !ENDE LISTE
  19. /
  20. !WENN #LetzteSeite
  21. ────────────────────────────────────────────────────────────────────────────────────
  22. Anzahl der aufgelisteten Aufträge: #ANZ:8:0                        Summe: #SummeBetrag:10
  23. !SEITENAUSWURF
  24. !ENDE WENN
  25. !FORMULARENDE
  26.  
  27.  
  28. !PLATZHALTER
  29.   #Auftragsbezeichnung, cAuftragname       // Angebot bis Gutschrift
  30.   #AuftragsTyp,   IF(nAtrTyp=1, atyp1, IF( nAtrTyp=2, atyp2, IF( nAtrTyp=3, atyp3, atyp5)))
  31.   #AuftragstypOK, #Auftragstyp= .T.
  32.   #VonDat,        vondatum                 // wird vom Benutzer eingegeben
  33.   #BisDat,        bisdatum                 // wird vom Benutzer eingegeben
  34.  
  35.   #Atr_nr,        ako->at_nr
  36.   #KdNr,          ako->at_kdnr
  37.   #Name,          Substr( ako->at_n2, 1,20) // 20 Zeichen vom Nachnamen
  38.   #AtrDat,        ako->at_dat              // Auftrag angelegt am
  39.   #RgDatum ,      ako->at_rgdat            // Datum der Rechnung
  40.   #BestDat,       ako->at_bestdat          // Datum der Auftragsbestätigung
  41.   #LiefDat,       ako->at_liefdat          // Datum des Lieferscheins
  42.  
  43.   #Betrag,        ako->at_wert             // Auftragssumme Brutto
  44.   #St1,           ako->mwst1incl           // Mwst Anteil voller Mwstsatz
  45.   #St2,           ako->mwst2incl           // Mwst Anteil halber Mwstsatz
  46.   #Netto,         #Betrag- #St1 - #St2     // Netto-Rechnungsbetrag
  47.  
  48.   #STOR,          IF( ! Empty( ako->Rg_stordat), 'Storn', '     ')  // Auftrag storniert?
  49.   #AG,            IF( ako->atyp1, 'AG ',  '   ')   // Angebot gedruckt?
  50.   #AB,            IF( ako->atyp2, 'AB ',  '   ')   // Auftragsbestätigung gedruckt?
  51.   #LS,            IF( ako->atyp3, 'LS ',  '   ')   // Lieferschein gedruckt?
  52.   #GS,            IF( ako->atyp5, 'GS ',  '   ')   // Gutschrift gedruckt?
  53.  
  54.   #Anz,           nAnz                        // nur zum Zählen der Rechnungen
  55.   #SummeBetrag,   nSummeBetr                  // Summe der Auftragsbeträge
  56.   #SummeSt1,      nSummeSt1                   // Summe Mwst (voller Mwst.Satz)
  57.   #SummeSt2,      nSummeSt2                   // Summe Mwst (halber Mwst.Satz)
  58. !ENDE PLATZHALTER
  59.